home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {4B8B4431-033E-454E-AC8B-8D47691A8AEC}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  7KB  |  118 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Control clsid="{1C94A05E-ED29-4760-B9BC-134593EEE7C3}"><_cx vt="19">5662</_cx><_cy vt="19">7144</_cy><BackColor vt="19">14342874</BackColor><ForeColor vt="19">0</ForeColor><Enabled vt="11">-1</Enabled><BorderVisible vt="11">0</BorderVisible><SelBackColor vt="19">10592673</SelBackColor><SelForeColor vt="19">6579300</SelForeColor><DefaultItem vt="3">-1</DefaultItem><DropListHeight vt="3">400</DropListHeight></Control><Script><![CDATA['Called when the script is executed
  5. Sub Object_OnScriptEnter
  6.     Control.BackColor = RGB(0,70,120)
  7.     Control.ForeColor = RGB(103,190,255)
  8.     Control.SelectionBackColor = RGB(0,70,120)
  9.     Control.SelectionForeColor = RGB(255,255,255)
  10.     Control.AddItem "Select a source ..."
  11.     Control.AddItem "Media playlist"
  12.     COntrol.AddItem "Single album"
  13.     Control.AddItem "CD Audio"
  14.     Control.AddItem "Radio"
  15.     Control.AddItem "File"
  16.     Control.ListIndex = 0
  17.     CtrlReset
  18. End Sub
  19.  
  20. Sub Control_OnSelect(item, string)
  21.     If Control.Text = "Select a source ..." Then
  22.         CtrlReset    
  23.     ElseIf Control.Text = "Media playlist" Then ' Media playlist
  24.         DesktopX.ScriptObject("lstPlaylist").Object.Visible = True
  25.         DesktopX.ScriptObject("lstPlaylist").PlaylistRefresh
  26.         DesktopX.ScriptObject("wmp_playlist_up").Object.state = "disabled"                                        '<=====
  27.         DesktopX.ScriptObject("wmp_playlist_up").Object.LocalStorage("state") = "disabled"        '<=====
  28.         DesktopX.ScriptObject("wmp_playlist_down").Object.state = "disabled"                                        '<=====
  29.         DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "disabled"        '<=====
  30.         DesktopX.ScriptObject("wmp").Control.Controls.Stop()
  31.     ElseIf Control.Text = "Single album" Then
  32.         DesktopX.ScriptObject("lstPlaylist").Control.ResetList
  33.         DesktopX.ScriptObject("lstPlaylist").Control.AddItem "Select an album ..."
  34.     For x = 0 To DesktopX.ScriptObject("wmp").Control.mediaCollection.getAll().Count - 1
  35.         inlist = False      
  36.         album = DesktopX.ScriptObject("wmp").Control.mediaCollection.getAll().Item(x).getItemInfo("Artist") & " - " & DesktopX.ScriptObject("wmp").Control.mediaCollection.getAll().Item(x).getItemInfo("Album")
  37.         For y = 0 To DesktopX.ScriptObject("lstPlaylist").Control.ItemCount - 1
  38.             If DesktopX.ScriptObject("lstPlaylist").Control.Item(y) = album Then
  39.                 inlist = True
  40.             End If
  41.         Next
  42.         If inlist = False And DesktopX.ScriptObject("wmp").Control.mediaCollection.getAll().Item(x).getItemInfo("MediaType") = "audio" Then
  43.             DesktopX.ScriptObject("lstPlaylist").Control.AddItem album
  44.             End If
  45.     Next
  46.         Set x = Nothing
  47.         Set inlist = Nothing
  48.         Set album = Nothing
  49.         DesktopX.ScriptObject("lstPlaylist").Object.Visible = True
  50.         DesktopX.ScriptObject("lstPlaylist").Control.ListIndex = 0
  51.     ElseIf Control.Text = "CD Audio" Then ' CD
  52.         DesktopX.ScriptObject("lstPlaylist").Control.ResetList        
  53.         DesktopX.ScriptObject("lstPlaylist").Control.AddItem "Select a CD ..."
  54.         Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
  55.         Set Drives = FileSystemObject.Drives
  56.         For Each DiskDrive In Drives
  57.             DriveLetter = DiskDrive.DriveLetter
  58.             If DiskDrive.DriveType = 4 Then
  59.                 If DiskDrive.IsReady Then
  60.                     DesktopX.ScriptObject("lstPlaylist").Control.AddItem DiskDrive.DriveLetter & ": " & DiskDrive.VolumeName
  61.                 End If
  62.             End If
  63.         Next
  64.         Set FileSystemObject = Nothing
  65.         Set Drives = Nothing
  66.         Set DiskDrive = Nothing
  67.         Set DriveLetter = Nothing
  68.         DesktopX.ScriptObject("lstPlaylist").Object.Visible = True
  69.         DesktopX.ScriptObject("lstPlaylist").Control.ListIndex = 0
  70.  
  71.     ElseIf Control.Text = "Radio" Then ' Radio
  72.         DesktopX.ScriptObject("lstPlaylist").Control.ResetList    
  73.         DesktopX.ScriptObject("lstPlaylist").Control.AddItem "Select a station ..."
  74.         ' Loop through the library and items to the tracklist
  75.       For x = 0 To DesktopX.ScriptObject("wmp").Control.mediaCollection.getByAttribute("MediaType", "radio").Count - 1
  76.           DesktopX.ScriptObject("lstPlaylist").Control.AddItem DesktopX.ScriptObject("wmp").Control.mediaCollection.getByAttribute("MediaType", "radio").Item(x).getItemInfo("Title")
  77.         Next
  78.         DesktopX.ScriptObject("lstPlaylist").Object.Visible = True
  79.         DesktopX.ScriptObject("lstPlaylist").Control.ListIndex = 0
  80.         DesktopX.ScriptObject("wmp_playlist_up").Object.state = "disabled"                                        '<=====
  81.         DesktopX.ScriptObject("wmp_playlist_up").Object.LocalStorage("state") = "disabled"        '<=====
  82.         DesktopX.ScriptObject("wmp_playlist_down").Object.state = "disabled"                                        '<=====
  83.         DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "disabled"        '<=====
  84.  
  85.     ElseIf string = "File" Then ' File
  86.         mediaFile = System.FileOpenDialog("Select audio track ...", "", "", "Windows Audio File|*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp3|Media Playlist|*.asx;*.m3u", 0)
  87.         If mediaFile <> "" Then
  88.             DesktopX.ScriptObject("wmp").Control.Url = mediaFile
  89.             DesktopX.Object("wmp_lbl_pos").Visible = True
  90.             DesktopX.Object("wmp_txt_title").Text = DesktopX.ScriptObject("wmp").Control.currentMedia.getItemInfo("Title")
  91.             DesktopX.Object("wmp_txt_album").Text = DesktopX.ScriptObject("wmp").Control.currentMedia.getItemInfo("WM/AlbumTitle")
  92.             DesktopX.Object("wmp_txt_track").Text = "1 of 1"
  93.             DesktopX.ScriptObject("lstPlaylist").Object.Visible = False
  94.             DesktopX.ScriptObject("lst_tracks").Object.Visible = False
  95.         Else
  96.             Control.ListIndex = 0
  97.         End If
  98.  
  99.         Set mediaFile = Nothing
  100.  
  101.     End If
  102. End Sub
  103.  
  104. Sub Control_KeyPress(KeyAscii)
  105.         Control.Item(0).Text = "Select a source ..."
  106. End Sub
  107.  
  108. Function CtrlReset
  109.     DesktopX.ScriptObject("lstPlaylist").Object.Visible = False
  110.     DesktopX.ScriptObject("lst_tracks").Object.Visible = False
  111.     DesktopX.ScriptObject("wmp_playlist_up").Object.state = "disabled"                                        '<=====
  112.     DesktopX.ScriptObject("wmp_playlist_up").Object.LocalStorage("state") = "disabled"        '<=====
  113.     DesktopX.ScriptObject("wmp_playlist_down").Object.state = "disabled"                                        '<=====
  114.     DesktopX.ScriptObject("wmp_playlist_down").Object.LocalStorage("state") = "disabled"        '<=====
  115.     DesktopX.ScriptObject("wmp").Control.Controls.Stop()
  116.     Control.ListIndex = 0
  117. End Function]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>215</EditorLeft><EditorTop>130</EditorTop><EditorRight>1060</EditorRight><EditorBottom>888</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{1C94A05E-ED29-4760-B9BC-134593EEE7C3}</ControlCLSID><ControlObjWidth>114</ControlObjWidth><ControlObjHeight>21</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  118.